home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 April: Mac OS SDK / Dev.CD Apr 98 SDK1.toast / Development Kits (Disc 1) / QuickDraw 3D / Samples / SampleCode / SimpleViewer++ / SimpleViewer.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-08-14  |  28.4 KB  |  1,167 lines  |  [TEXT/MPCC]
  1. //--------------------------------------------------------------------------------------------
  2. // simple viewer application 
  3. // DEVELOPER SUPPORT May 95
  4. //
  5. // This is a simple viewer application, that illustrates a minimal, but
  6. // functionally complete viewer application.
  7. //
  8. // Nick Thompson, Developer Support, Apple Computer (DEVSUPPORT),
  9. // ©1995, Apple Computer Inc., All Rights Reserved
  10.  
  11. #include <AppleEvents.h>
  12. #include <menus.h>
  13. #include <PictUtil.h>
  14. #include <QDOffScreen.h>
  15. #include <Errors.h>
  16.  
  17. #include "QD3DViewer.h"
  18.  
  19. #include "QD3D.h"
  20. #include "QD3DRenderer.h"
  21. #include "QD3DView.h"
  22. //--------------------------------------------------------------------------------------------
  23. //
  24. const int    kWindowWidth = 220 ;
  25. const int    kWindowHeight = 150 ;
  26.  
  27. //--------------------------------------------------------------------------------------------
  28. //
  29. #define HiWrd(aLong)    (((aLong) >> 16) & 0xFFFF)
  30. #define LoWrd(aLong)    ((aLong) & 0xFFFF)
  31.  
  32.     
  33.  
  34. //--------------------------------------------------------------------------------------------
  35. // menu id's
  36. enum {
  37.     mApple = 128,
  38.     mFile,
  39.     mEdit,
  40.     mView
  41. } ;
  42.  
  43. //--------------------------------------------------------------------------------------------
  44. // command id's, Apple menu
  45. enum {
  46.     iAbout = 1
  47. } ;
  48.  
  49. //--------------------------------------------------------------------------------------------
  50. // command id's, File menu
  51. enum {
  52.     iNew = 1,
  53.     iOpen,
  54.     iUnused1,
  55.     iClose,
  56.     iSave,
  57.     iSaveAs,
  58.     iRevert,
  59.     iUnused2,
  60.     iQuit
  61. } ;
  62.  
  63. //--------------------------------------------------------------------------------------------
  64. // command id's, Edit menu
  65. enum {
  66.     iUndo = 1,
  67.     iUnused3,
  68.     iCut,
  69.     iCopy,
  70.     iPaste,
  71.     iClear
  72. } ;
  73.  
  74. //--------------------------------------------------------------------------------------------
  75. // command id's, Edit menu
  76. enum {
  77.     iWireframe = 1,
  78.     iInteractive
  79. } ;
  80.  
  81. //--------------------------------------------------------------------------------------------
  82. // static control variables
  83.  
  84. static Boolean gQuitFlag = false ;                // we ain't quittin yet
  85. static Point gStaggerPos = {50,50} ;            // start opening staggered windows at this point
  86. static AEAddressDesc    gSelfAddress;            // A self-addressed address descriptor record
  87. static ProcessSerialNumber    gSelfPSN;            // This application's psn
  88.  
  89. //--------------------------------------------------------------------------------------------
  90. // function prototypes
  91.  
  92. Boolean SupportsQuickDraw3D(void) ;
  93. Boolean     SupportsQuickDraw3DViewer(void) ;
  94. void         InitToolbox( void ) ;
  95. void        FailIfErr(OSErr something ) ;
  96. void         MainEventLoop( void ) ;
  97. void         HandleKeyPress( EventRecord *event ) ;
  98. Boolean        HandleEvent( EventRecord *theEvent ) ;
  99. void         HandleMenuCommand( long menuResult ) ;
  100. void         MyAdjustMenus( void ) ;
  101. OSErr        MyDisposeViewerWindow( WindowPtr theWindow ) ;
  102. CGrafPtr     MyCreateViewerWindow( void ) ;
  103.  
  104. //-- AppleEvent Related
  105.  
  106. Boolean SupportsAEVT(void) ;
  107. void RegisterMyEvents(void) ;
  108. pascal OSErr MyAEHandleOAPP( AppleEvent *theAppleEvent, AppleEvent *reply, long refCon) ;
  109. pascal OSErr MyAEHandleODOC(AppleEvent *theAppleEvent, AppleEvent *reply, long refCon) ;
  110. pascal OSErr MyAEHandlePDOC(AppleEvent *theAppleEvent,AppleEvent *reply,long refCon) ;
  111. pascal OSErr MyAEHandleQUIT(AppleEvent *theAppleEvent,AppleEvent *reply,long refCon) ;
  112. void DoAppOpenCommand( void ) ;
  113. void MySendQuitApp( void ) ;
  114. void MySendOpenDoc(FSSpec *myFSSpec) ;
  115.  
  116. //--------------------------------------------------------------------------------------------
  117. // Constants
  118.  
  119. const RGBColor    kRGBBlack = { 0x0000, 0x0000, 0x0000 } ;
  120. const RGBColor    kRGBWhite = { 0xFFFF, 0xFFFF, 0xFFFF } ;
  121. const int         kMyAboutDialogID = 128 ;
  122. const int         kMyFatalDialogID = 129 ;
  123. const int        kQD3DAlertID = 27309 ;
  124. //--------------------------------------------------------------------------------------------
  125. // Types
  126. typedef struct _viewerData {
  127.     TQ3ViewerObject        theViewer ;
  128.     FSSpec                theFile ;
  129.     Boolean                isFileValid ;
  130. } ViewerData, *ViewerDataPtr, **ViewerDataHandle ;
  131.  
  132. //--------------------------------------------------------------------------------------------
  133. //
  134. //
  135.  
  136. main()
  137. {
  138.     MoreMasters(); MoreMasters() ; MoreMasters() ;
  139.     MaxApplZone() ;            // Maximise the heap - the viewer requires at least 32k
  140.     InitToolbox() ;
  141.  
  142.     // WE DON'T CHECK FOR 68K machine.
  143.     // Instead I use the NotPPC.rsrc resource file.  This is a file with a 68k CODE 0
  144.     // and CODE 1 resource that puts up a dialog that says "this app only runs on a power
  145.     // macintosh computer.
  146.     
  147.     if( SupportsAEVT() && SupportsQuickDraw3D() && SupportsQuickDraw3DViewer()  ) {
  148.     
  149.         // AppleEvent stuff:
  150.         // Set up the self-addressed descriptor record.
  151.          gSelfPSN.highLongOfPSN = 0;
  152.          gSelfPSN.lowLongOfPSN = kCurrentProcess;        //* Use this instead of GetCurrentProcess *//
  153.          FailIfErr(AECreateDesc(typeProcessSerialNumber,(Ptr)&gSelfPSN,sizeof(ProcessSerialNumber),&gSelfAddress));
  154.  
  155.         RegisterMyEvents() ;    // register the appleevents for this app
  156.  
  157.         MainEventLoop() ;        // Handle events 'til we die
  158.     } 
  159.     else {
  160.         Str255 theString ;
  161.         GetIndString(theString,kQD3DAlertID,3);
  162.         ParamText( theString, 0L,  0L,  0L ) ;
  163.         (void)Alert(kQD3DAlertID,nil);
  164.     }
  165. }
  166. //---------------------------------------------------------------------
  167.  
  168. Boolean SupportsQuickDraw3D(void) 
  169. {
  170.     OSErr err;
  171.     long response;
  172.         
  173.     err = Gestalt(gestaltQD3D,&response);
  174.     if (err!=noErr)
  175.         return false;
  176.         
  177.     return (response && (response << gestaltQD3DAvailable));
  178. }
  179.  
  180. //---------------------------------------------------------------------
  181.  
  182. Boolean SupportsQuickDraw3DViewer(void) 
  183. {
  184.     OSErr err;
  185.     long response;
  186.         
  187.     err = Gestalt( gestaltQD3DViewer,&response );
  188.     if (err!=noErr)
  189.         return false;
  190.         
  191.     return (response && ( response << gestaltQD3DViewerAvailable ));
  192. }
  193.  
  194. //--------------------------------------------------------------------------------------------
  195. //
  196. //
  197. void FailIfErr( OSErr something )
  198. { 
  199.     OSErr myErr ; 
  200.     if(( myErr = something) != noErr ) { 
  201.         ModalFilterUPP         theProc ;
  202.         DialogPtr            theDialog ; 
  203.         short                itemHit ;
  204.         Str255                theError ;
  205.         
  206.         NumToString(something,theError);
  207.     
  208.         theDialog = GetNewDialog ( kMyFatalDialogID, nil, (WindowPtr)-1 );
  209.         
  210.         // these two lil' snappers are system 7 only
  211.         // so if you use them, check before!!
  212.         // in this app we will only run on Power
  213.         // Macintosh, so we don't check
  214.         
  215.         GetStdFilterProc( &theProc ) ;
  216.         SetDialogDefaultItem(theDialog, ok) ;
  217.         
  218.         ParamText( theError, 0L, 0L, 0L ) ;
  219.         
  220.         // put the dialog up and loop 'til
  221.         // the user hits the OK button
  222.  
  223.         do {
  224.             ModalDialog ( theProc, &itemHit );
  225.         } while( itemHit != ok ) ;
  226.         
  227.         DisposDialog ( theDialog );
  228.         
  229.         ExitToShell() ; 
  230.     } 
  231. } 
  232.  
  233. //--------------------------------------------------------------------------------------------
  234. //
  235. //
  236.  
  237. void InitToolbox()
  238. {
  239.     Handle        menuBar = nil;
  240.  
  241.  
  242.     InitGraf((Ptr) &qd.thePort);
  243.     InitFonts();
  244.     InitWindows();
  245.     InitMenus();
  246.     TEInit();
  247.     InitDialogs((long)nil);
  248.     InitCursor();
  249.  
  250.     // initialize application globals
  251.     
  252.     gQuitFlag = false;
  253.     
  254.     
  255.     menuBar = GetNewMBar(128);                // Read menus into menu bar, MBAR res id is 128
  256.     
  257.     if ( menuBar == nil )
  258.          ExitToShell();                        // if we dont have it then quit - your app 
  259.                                              // needs a dialog here
  260.  
  261.     SetMenuBar(menuBar);                    // Install menus
  262.     DisposHandle(menuBar);
  263.     
  264.     AddResMenu(GetMHandle(mApple), 'DRVR');    // Add DA names to Apple menu, ID 128
  265.  
  266.     MyAdjustMenus() ;
  267.     DrawMenuBar();
  268. }
  269.  
  270.  
  271. //--------------------------------------------------------------------------------------------
  272. //
  273. //
  274. void MainEventLoop()
  275. {
  276.     EventRecord         event;
  277.     WindowPtr           theWindow;
  278.     Boolean                wasViewerEvent ;
  279.     GrafPtr             savedPort ;
  280.     Point                localPt ;
  281.     TQ3ViewerObject     theViewer ;
  282.     ViewerDataHandle    myData ;
  283.     Boolean                didAdjustCursor ;
  284.  
  285.     MyAdjustMenus() ;
  286.     while( !gQuitFlag )
  287.     {
  288.         if (WaitNextEvent( everyEvent, &event, 0, nil ))
  289.         {
  290.             
  291.             if((theWindow = FrontWindow()) != nil ) {
  292.             
  293.                 myData = (ViewerDataHandle)GetWRefCon(theWindow);
  294.                 theViewer = (**myData).theViewer;
  295.             }
  296.             
  297.             if( theViewer ) {
  298.                 GetPort( &savedPort ) ;
  299.                 SetPort( (GrafPtr)theWindow ) ;
  300.                 GetMouse(&localPt);
  301.                 if (!(didAdjustCursor = Q3ViewerAdjustCursor(theViewer, &localPt))) {
  302.                     InitCursor();
  303.                 }
  304.                 else {
  305.                     DebugStr("\pQ3ViewerAdjustCursor returned true") ;
  306.                 }
  307.                 wasViewerEvent = Q3ViewerEvent ( theViewer, &event );
  308.                 SetPort( savedPort ) ;
  309.             }
  310.             else
  311.                 wasViewerEvent = false ;
  312.             
  313.             // was it a viewer event????
  314.             if( !wasViewerEvent ) {
  315.                 HandleEvent( &event );
  316.             } 
  317.         }
  318.     }
  319. }
  320.  
  321. //----------------------------------------------------------------------------------
  322. //    HandleActivateWindow is called when an event is received that reports that
  323. //    a window is being either activated or deactivated.
  324.  
  325. void HandleActivateWindow(WindowPtr theWindow, short activate)
  326. {
  327.     if (theWindow) {
  328.         if (activate) {
  329.         
  330.             // do whatever else you'd like to do for a activate event
  331.             LoadScrap() ;
  332.  
  333.         } else {
  334.         
  335.             // do whatever you'd like to do for a deactivate event
  336.             UnloadScrap() ;
  337.         }
  338.     }
  339. }
  340.  
  341. //--------------------------------------------------------------------------------------------
  342. //
  343. //
  344. Boolean        HandleEvent( EventRecord *theEvent )
  345. {
  346.     short               thePart;
  347.     WindowPtr            theWindow ;
  348.     Rect                screenRect;
  349.     GrafPtr                oldPort ;
  350.     Point                aPoint = {100, 100};
  351.     TQ3ViewerObject     theViewer = nil ;
  352.     ViewerDataHandle    myData ;
  353.     
  354.     switch (theEvent->what) {
  355.         case mouseDown:
  356.         
  357.             thePart = FindWindow( theEvent->where, &theWindow );
  358.             
  359.             switch( thePart ) {
  360.                 case inMenuBar: 
  361.                     MyAdjustMenus() ;
  362.                     HandleMenuCommand(MenuSelect(theEvent->where));
  363.                     break;
  364.                 
  365.                 case inDrag:
  366.                     screenRect = (**GetGrayRgn()).rgnBBox;
  367.                     DragWindow( theWindow, theEvent->where, &screenRect );
  368.                     break ;
  369.             
  370.                 case inContent:
  371.                     if (theWindow != FrontWindow())
  372.                         SelectWindow( theWindow );
  373.                     break ;
  374.             
  375.                 case inGoAway:
  376.                     if (TrackGoAway( theWindow, theEvent->where )) {
  377.                         MyDisposeViewerWindow( theWindow ) ;
  378.                     }
  379.                     break ;
  380.                     
  381.                 default:
  382.                     break ;
  383.             }
  384.             break ;
  385.                     
  386.                 
  387.         case updateEvt:
  388.         
  389.             theWindow = (WindowPtr)theEvent->message;
  390.             myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  391.             theViewer = (**myData).theViewer ;
  392.             
  393.             GetPort(&oldPort ) ;    
  394.             SetPort( theWindow );
  395.             
  396.             BeginUpdate( theWindow );
  397.             Q3ViewerDraw( theViewer ) ;
  398.             EndUpdate( theWindow );
  399.             
  400.             SetPort( oldPort ) ;
  401.             
  402.             break ;
  403.             
  404.         case keyDown:
  405.         case autoKey:
  406.             HandleKeyPress(theEvent);
  407.             break;
  408.             
  409.         case diskEvt:
  410.             if ( HiWrd(theEvent->message) != noErr ) 
  411.                 (void) DIBadMount(aPoint, theEvent->message);
  412.             break;
  413.             
  414.         case osEvt:
  415.             break ;
  416.         case activateEvt:
  417.             if ((theWindow = (WindowPtr) theEvent->message) != nil) {
  418.                 HandleActivateWindow(theWindow, (theEvent->modifiers & activeFlag));
  419.             }
  420.  
  421.             break;
  422.  
  423.         case kHighLevelEvent:                        // Let the Apple Event Manager handle high level event.
  424.             AEProcessAppleEvent(theEvent);
  425.             break;
  426.  
  427.     }
  428.     return true ;
  429. }
  430.  
  431.  
  432. //--------------------------------------------------------------------------------------------
  433. //
  434. //
  435. void HandleKeyPress(EventRecord *event)
  436. {
  437.     char    key;
  438.  
  439.     key = event->message & charCodeMask;
  440.     
  441.     // just check to see if we want to quit...
  442.     
  443.     if ( event->modifiers & cmdKey ) {        /* Command key down? */
  444.         HandleMenuCommand(MenuKey(key));
  445.     } 
  446. }
  447.  
  448. //--------------------------------------------------------------------------------------------
  449. //
  450. //
  451.  
  452. void HandleAboutApp( void )
  453. {
  454.     ModalFilterUPP         theProc ;
  455.     DialogPtr            theDialog ; 
  456.     short                itemHit ;
  457.  
  458.     theDialog = GetNewDialog ( kMyAboutDialogID, nil, (WindowPtr)-1 );
  459.     
  460.     // these two lil' snappers are system 7 only
  461.     // so if you use them, check before!!
  462.     // in this app we will only run on Power
  463.     // Macintosh, so we don't check
  464.     
  465.     GetStdFilterProc( &theProc ) ;
  466.     SetDialogDefaultItem(theDialog, ok) ;
  467.     
  468.     // put the dialog up and loop 'til
  469.     // the user hits the OK button
  470.     
  471.     do {
  472.         ModalDialog ( theProc, &itemHit );
  473.     } while( itemHit != ok ) ;
  474.     
  475.     DisposDialog ( theDialog );
  476. }
  477.  
  478. //--------------------------------------------------------------------------------------------
  479. //
  480. //
  481. OSErr HandleOpenDoc(FSSpec *theFile)
  482. {
  483.     OSErr                err ;
  484.     short                theRef ;
  485.     ViewerDataHandle    myData ;
  486.     TQ3ViewerObject     theViewer ;
  487.     WindowPtr            theWindow ;
  488.  
  489.     // display the contents
  490.     theWindow = (WindowPtr)MyCreateViewerWindow() ;
  491.     
  492.     // open the file
  493.     err = FSpOpenDF( theFile, fsRdPerm, &theRef ) ;
  494.     if (err == noErr)
  495.     {
  496.         myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  497.         theViewer = (**myData).theViewer ;
  498.         (**myData).theFile = *theFile ;
  499.         (**myData).isFileValid = true ;
  500.         Q3ViewerUseFile(theViewer, theRef) ;
  501.         err = FSClose(theRef) ;
  502.     }
  503.     
  504.     // set the window title
  505.     SetWTitle( theWindow, theFile->name );
  506.     MyAdjustMenus() ;
  507.     return err ;
  508. }
  509.  
  510.  
  511. //--------------------------------------------------------------------------------------------
  512. //
  513. //
  514. void HandleMenuCommand(long menuResult)
  515. {
  516.     short                menuID;
  517.     short                menuItem;
  518.     Str255                daName;
  519.     
  520.  
  521.     short                numTypes = 2 ;
  522.     SFTypeList            myTypes = { '3DMF', 'TEXT' } ;
  523.     OSErr                err ;
  524.     short                theRef ;
  525.     
  526.     ViewerDataHandle    myData ;
  527.     TQ3ViewerObject     theViewer ;
  528.     WindowPtr            theWindow ;
  529.     GrafPtr                savedPort ;
  530.     
  531.     FSSpec                theFile ;
  532.         
  533.     StandardFileReply    theSFReply ;
  534.  
  535.     menuID = HiWrd(menuResult);
  536.     menuItem = LoWrd(menuResult);
  537.     
  538.     switch ( menuID ) {
  539.         //
  540.         //--------------------------------------------------------------------------    
  541.         //
  542.         case mApple:
  543.             switch ( menuItem ) {
  544.  
  545.                 case iAbout:
  546.                     HandleAboutApp() ;    
  547.                     break ;
  548.                                 
  549.                 default:
  550.                     GetItem(GetMHandle(mApple), menuItem, daName);
  551.                     (void) OpenDeskAcc(daName);
  552.                     break;
  553.             }
  554.             break;
  555.         //
  556.         //--------------------------------------------------------------------------    
  557.         //
  558.         case mFile:
  559.             switch ( menuItem ) {
  560.                 case iNew:
  561.                     // display the contents
  562.                     (void)MyCreateViewerWindow() ;
  563.                     break ;
  564.                 
  565.                 case iOpen:
  566.                     // Get the file name to open
  567.                     StandardGetFile( nil, numTypes, myTypes, &theSFReply ) ;
  568.                     
  569.                     // did the user cancel, if not open the file?
  570.                     if(theSFReply.sfGood)
  571.                         MySendOpenDoc(&theSFReply.sfFile) ;
  572.  
  573.                     break ;
  574.                     
  575.                     
  576.                 case iRevert:
  577.                 
  578.                     // we know this can't be called as long as there
  579.                     // is an app window open (MyAdjustMenus) so get the refcon
  580.                     // from the front window and get the FSSpec from that
  581.                     theWindow = FrontWindow() ;
  582.                     myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  583.                     theFile = (**myData).theFile ;
  584.                     
  585.                     // open the file and read it back into the viewer
  586.                     err = FSpOpenDF( &theFile, fsRdPerm, &theRef ) ;
  587.                     if (err == noErr)
  588.                     {
  589.                         theViewer = (**myData).theViewer ;
  590.                         Q3ViewerUseFile(theViewer, theRef) ;
  591.                         err = FSClose(theRef) ;
  592.                     }
  593.                     GetPort( &savedPort ) ;
  594.                     SetPort((GrafPtr)theWindow) ;
  595.                     InvalRect( &theWindow->portRect ) ;
  596.                     SetPort( savedPort ) ;
  597.                     break ;        
  598.                             
  599.                 case iSave:                
  600.                 
  601.                     // we know this can't be called as long as there
  602.                     // is an app window open (MyAdjustMenus) so get the refcon
  603.                     // from the front window and get the FSSpec from that
  604.                     theWindow = FrontWindow() ;
  605.                     myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  606.                     theFile = (**myData).theFile ;
  607.                     theViewer = (**myData).theViewer ;
  608.  
  609.                     // assumes the original file still exists
  610.                     err = FSpOpenDF(&theFile, fsWrPerm, &theRef);
  611.                     if (err == noErr)
  612.                     {
  613.                         Q3ViewerWriteFile(theViewer, theRef);
  614.                         err = FSClose(theRef);
  615.                     }
  616.                     break ;
  617.                 
  618.                 case iSaveAs:
  619.                     // we know this can't be called as long as there
  620.                     // is an app window open (MyAdjustMenus) so get the refcon
  621.                     // from the front window and get the FSSpec from that
  622.                     theWindow = FrontWindow() ;
  623.                     myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  624.                     theViewer = (**myData).theViewer ;
  625.  
  626.                     StandardPutFile("\pSave model as:", "\pUntitled", &theSFReply);
  627.                     if (theSFReply.sfGood)
  628.                     {
  629.                         err = FSpOpenDF(&theSFReply.sfFile, fsWrPerm, &theRef);
  630.                         if (err != noErr)
  631.                         {
  632.                             err = FSpCreate(&theSFReply.sfFile, '????', '3DMF', theSFReply.sfScript);
  633.                             if (err == noErr)
  634.                                 err = FSpOpenDF(&theSFReply.sfFile, fsCurPerm, &theRef);
  635.                         }
  636.                         if (err == noErr)
  637.                         {
  638.                             Q3ViewerWriteFile(theViewer, theRef);
  639.                             err = FSClose(theRef);
  640.                         }
  641.                         
  642.                         // set up our record of the file location,
  643.                         // update the structure
  644.                         theWindow = FrontWindow() ;
  645.                         myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  646.                         theViewer = (**myData).theViewer ;
  647.                         (**myData).theFile = theSFReply.sfFile ;
  648.                         (**myData).isFileValid = true ;
  649.                         
  650.                         // reset the window title
  651.                         SetWTitle( theWindow, theSFReply.sfFile.name );
  652.                     }
  653.                     break;                
  654.                 
  655.                 case iClose:
  656.                     MyDisposeViewerWindow ( FrontWindow() );
  657.                     break ;
  658.                     
  659.                 case iQuit:
  660.                     MySendQuitApp();
  661.                     break;
  662.             }
  663.             break;
  664.             
  665.             
  666.         //
  667.         //--------------------------------------------------------------------------    
  668.         //
  669.         case mEdit:
  670.             // display the contents
  671.             theWindow = FrontWindow() ;
  672.             myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  673.             theViewer = (**myData).theViewer ;
  674.             switch(menuItem)
  675.             {
  676.                 case iCut:
  677.                     Q3ViewerCut(theViewer);
  678.                     break;
  679.                 case iCopy:
  680.                     Q3ViewerCopy(theViewer);
  681.                     break;
  682.                 case iPaste:
  683.                     Q3ViewerPaste(theViewer);
  684.                     break;
  685.                 case iClear:
  686.                     Q3ViewerClear(theViewer);
  687.                     break;
  688.                 default:
  689.                     break;
  690.             }
  691.             break; 
  692.             
  693.         case mView:
  694.             
  695.             theWindow = FrontWindow() ;
  696.             
  697.             if( theWindow == nil )
  698.                 break ;
  699.                 
  700.             myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  701.             theViewer = (**myData).theViewer ;
  702.             switch(menuItem)
  703.             {
  704.                 case iWireframe:
  705.                     {
  706.                         // get the view from the viewer
  707.                         TQ3ViewObject             myView = Q3ViewerGetView( theViewer );
  708.                         TQ3Status                myStatus;
  709.                         TQ3RendererObject        myRenderer;
  710.     
  711.                         // set the renderer to wireframe
  712.                         myRenderer = Q3Renderer_NewFromType(kQ3RendererTypeWireFrame);
  713.                         if ((myStatus != Q3View_SetRenderer(myView, myRenderer)) == kQ3Failure ) {
  714.                             
  715.                             // dispose of the view, this reduces
  716.                             // the reference count and the changes we
  717.                             // made to the viewer's defualt will remain.
  718.                             Q3Object_Dispose( myView ) ;
  719.                         }
  720.                         Q3Object_Dispose( myRenderer ) ;
  721.  
  722.                     }
  723.                     break;
  724.                     
  725.                 case iInteractive:
  726.                     {
  727.                         // get the view from the viewer
  728.                         TQ3ViewObject             myView = Q3ViewerGetView( theViewer );
  729.                         TQ3Status                myStatus;
  730.                         TQ3RendererObject        myRenderer;
  731.     
  732.                         // set the renderer to use the interactive renderer
  733.                         myRenderer = Q3Renderer_NewFromType(kQ3RendererTypeInteractive);
  734.                         if ((myStatus != Q3View_SetRenderer(myView, myRenderer)) == kQ3Failure ) {
  735.                             Q3Object_Dispose( myView ) ;
  736.                         }
  737.                         Q3Object_Dispose( myRenderer ) ;
  738.  
  739.                     }
  740.                     break;
  741.                     
  742.                 default:
  743.                     break;
  744.             }
  745.             GetPort( & savedPort ) ;
  746.             SetPort( theWindow ) ;
  747.             InvalRect( &theWindow->portRect ) ;
  748.             SetPort( savedPort ) ;
  749.             break;
  750.  
  751.     }
  752.     HiliteMenu(0);        // Unhighlight whatever MenuSelect or MenuKey hilited
  753. }
  754.  
  755. //--------------------------------------------------------------------------------------------
  756. //
  757. //
  758. void MyAdjustMenus( void ) 
  759. {
  760.     WindowPtr            theWindow ;
  761.     ViewerDataHandle    myData ;
  762.     MenuHandle            theMenu ;
  763.  
  764.     theWindow = FrontWindow() ;
  765.     
  766.     
  767.     if( theWindow != nil ) {
  768.     
  769.         theMenu =  GetMHandle ( mFile ) ;
  770.         
  771.         EnableItem ( theMenu, iClose );
  772.         EnableItem ( theMenu, iSaveAs );
  773.                  
  774.         myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  775.         
  776.          if(    (**myData).isFileValid) {
  777.             EnableItem ( theMenu, iSave );
  778.             EnableItem (theMenu, iRevert );
  779.          }
  780.          else {
  781.             DisableItem ( theMenu, iSave );
  782.             DisableItem ( theMenu, iRevert );
  783.          
  784.          }
  785.          
  786.          EnableItem ( GetMHandle ( mEdit ), 0 );
  787.  
  788.     }
  789.     else {
  790.  
  791.         theMenu =  GetMHandle ( mFile ) ;
  792.  
  793.         DisableItem ( theMenu, iClose );
  794.         DisableItem ( theMenu, iRevert );
  795.         DisableItem ( theMenu, iSave );
  796.         DisableItem ( theMenu, iSaveAs );
  797.         
  798.         DisableItem ( GetMHandle ( mEdit ), 0 );
  799.     }
  800.     
  801.     // we don't support undo
  802.     DisableItem ( GetMHandle ( mEdit ), iUndo );
  803.     
  804.     DrawMenuBar() ;
  805. }
  806.  
  807.  
  808. //--------------------------------------------------------------------------------------------
  809. //
  810. //
  811. OSErr    MyDisposeViewerWindow( WindowPtr theWindow )
  812. {
  813.     TQ3ViewerObject     theViewer ;
  814.     ViewerDataHandle    myData ;
  815.     
  816.     if( theWindow == nil)
  817.         return paramErr ;
  818.  
  819.     myData = (ViewerDataHandle)GetWRefCon( theWindow ) ;
  820.     theViewer = (**myData).theViewer ;
  821.     
  822.     DisposHandle((Handle)myData);
  823.     DisposeWindow(theWindow);
  824.     
  825.     MyAdjustMenus() ;
  826.     return     Q3ViewerDispose(theViewer);
  827. }
  828.  
  829.  
  830. //--------------------------------------------------------------------------------------------
  831. //
  832. //
  833. CGrafPtr MyCreateViewerWindow(  )
  834. {
  835.  
  836.     Rect                theRect ;
  837.     GrafPtr                savedPort ;
  838.     TQ3ViewerObject        myViewerObj ;
  839.     WindowPtr            theWindow ;
  840.     ViewerDataHandle    myData = (ViewerDataHandle)NewHandle(sizeof(ViewerData)) ;
  841.     
  842.     GetPort( &savedPort ) ;
  843.         
  844.     // set the new rect up with a stagger for multiple windows
  845.     SetRect(    &theRect, 
  846.                 gStaggerPos.h, 
  847.                 gStaggerPos.v, 
  848.                 gStaggerPos.h + kWindowWidth, 
  849.                 gStaggerPos.v + kWindowHeight );
  850.  
  851.     gStaggerPos.h += 16 ;
  852.     gStaggerPos.v += 16 ;        // this is not "real staggering code, it don't wrap ;        
  853.                          
  854.     theWindow  = NewCWindow(    nil, 
  855.                                 &theRect, 
  856.                                 "\pUntitled", 
  857.                                 false, 
  858.                                 documentProc, 
  859.                                 (WindowPtr)-1, 
  860.                                 true, 
  861.                                 0L );    
  862.                     
  863.     SetPort( (GrafPtr)theWindow ) ;
  864.     
  865.     // set up the viewer object here
  866.     myViewerObj = Q3ViewerNew ((CGrafPtr)theWindow,  &theWindow->portRect,  kQ3ViewerDefault) ; 
  867.     
  868.     //stuff the reference to the viewer in the RefCon field of the Window
  869.     (**myData).theViewer = myViewerObj ;
  870.     (**myData).isFileValid = false ;
  871.     SetWRefCon( theWindow, (long)myData );
  872.     
  873.     // make sure it is visible
  874.     ShowWindow( theWindow ) ;
  875.     
  876.     // invalidate the content region of the window - 
  877.     // we don't do any drawing to it here.
  878.     InvalRect ( &theRect );
  879.     SetPort( savedPort ) ;
  880.     
  881.     return (CGrafPtr)theWindow ;
  882. }
  883.  
  884.  
  885. //-----------------------------------------------------------------------
  886. // returns true if the platform supports appleevents - we won't run
  887. // if it doesn't
  888.  
  889. Boolean SupportsAEVT(void)
  890. {
  891.     OSErr err;
  892.     long response;
  893.         
  894.     err = Gestalt(gestaltAppleEventsAttr,&response);
  895.     if (err!=noErr)
  896.         return false;
  897.         
  898.     return (response && (response << gestaltAppleEventsPresent));
  899. }
  900.  
  901. //-----------------------------------------------------------------------
  902. // called to register our appleevent handlers
  903.  
  904. void RegisterMyEvents(void)
  905. {
  906.     OSErr err;
  907.     
  908.     if (!SupportsAEVT())
  909.         return;
  910.     
  911.     err = AEInstallEventHandler(kCoreEventClass,kAEOpenApplication,NewAEEventHandlerProc(MyAEHandleOAPP),0L,false);
  912.     if (err!=noErr)
  913.         return;
  914.                 
  915.     err = AEInstallEventHandler(kCoreEventClass,kAEOpenDocuments,NewAEEventHandlerProc(MyAEHandleODOC),0L,false);
  916.     if (err!=noErr)
  917.         return;
  918.                 
  919.     err = AEInstallEventHandler(kCoreEventClass,kAEPrintDocuments,NewAEEventHandlerProc(MyAEHandlePDOC),0L,false);
  920.     if (err!=noErr)
  921.         return;
  922.                 
  923.     err = AEInstallEventHandler(kCoreEventClass,kAEQuitApplication,NewAEEventHandlerProc(MyAEHandleQUIT),0L,false);
  924.     if (err!=noErr)
  925.         return;
  926. }
  927.  
  928. //-----------------------------------------------------------------------
  929. // open application event handler for the core event suite, 
  930. // by default we just want a blank new document
  931.  
  932. pascal OSErr MyAEHandleOAPP( AppleEvent *theAppleEvent, AppleEvent *reply, long refCon)
  933. {
  934.     // we don't actually do anything on open - you could,
  935.     // for example you might want to open a blank untitled 
  936.     // window
  937.     
  938.     OSErr err = noErr ;
  939.     return err;
  940. }
  941.  
  942.  
  943. //-----------------------------------------------------------------------
  944. // handler for the open document appleevent handler
  945.  
  946. pascal OSErr MyAEHandleODOC(AppleEvent *theAppleEvent, AppleEvent *reply, long refCon)
  947. {
  948.     FSSpec         myFSS;
  949.     AEDescList    docList;
  950.     OSErr        err,
  951.                 ignoreErr;
  952.     long        index,
  953.                 itemsInList;
  954.     Size         actualSize;
  955.     AEKeyword    keywd;
  956.     DescType    returnedType;
  957.  
  958.     
  959.     err = AEGetParamDesc(theAppleEvent,keyDirectObject,typeAEList,&docList);
  960.     if (err == noErr) {
  961.     
  962.         // see how many descriptor items are in the list
  963.         // this is the number of documents we want to open
  964.         err = AECountItems(&docList,&itemsInList);
  965.  
  966.         // now get each descriptor record from the list
  967.         // coerce the returned data to an FSSpec record, and
  968.         // open the asoociated file
  969.         
  970.         for (index=1; index <= itemsInList && err == noErr; index++) {
  971.         
  972.             err = AEGetNthPtr(    &docList, 
  973.                                 index,
  974.                                 typeFSS,
  975.                                 &keywd,
  976.                                 &returnedType,
  977.                                 (Ptr)&myFSS,
  978.                                 sizeof(myFSS),
  979.                                 &actualSize);
  980.     
  981.             if (err == noErr)    {
  982.             
  983.                 FInfo        fndrInfo ;
  984.                 
  985.                 // we now have a valid FSSpec to reference the file, we need to know 
  986.                 // what type the file is to determine which file open function to call
  987.                 // we can determine this from the finder info for the file
  988.                 
  989.                 err = FSpGetFInfo( &myFSS, &fndrInfo );    
  990.                 
  991.                 // if we got that ok, then we switch on the file  
  992.                 // type (we don't care about the creator type)    
  993.                         
  994.                 if (err == noErr)    {
  995.                 
  996.                     switch( fndrInfo.fdType ) {
  997.                         case 'TEXT':
  998.                         case '3DMF':
  999.                             err =  HandleOpenDoc(&myFSS);
  1000.                             break ;
  1001.                     }
  1002.                 }
  1003.             }
  1004.         }
  1005.         ignoreErr = AEDisposeDesc(&docList);
  1006.     }
  1007.     return err ;
  1008. }
  1009.  
  1010. //-----------------------------------------------------------------------
  1011. // handler for the print document event handler
  1012.  
  1013. pascal OSErr MyAEHandlePDOC(AppleEvent *theAppleEvent,AppleEvent *reply,long refCon)
  1014. {
  1015.     FSSpec         myFSS;
  1016.     AEDescList    docList;
  1017.     OSErr        err;
  1018.     long        index,
  1019.                 itemsInList;
  1020.     Size         actualSize;
  1021.     AEKeyword    keywd;
  1022.     DescType    returnedType;
  1023.  
  1024.     
  1025.     err = AEGetParamDesc(theAppleEvent,keyDirectObject,typeAEList,&docList);
  1026.     if (err == noErr) {
  1027.     
  1028.         // see how many descriptor items are in the list
  1029.         // this is the number of documents we want to open
  1030.         err = AECountItems(&docList,&itemsInList);
  1031.  
  1032.         // now get each descriptor record from the list
  1033.         // coerce the returned data to an FSSpec record, and
  1034.         // open the asoociated file
  1035.         
  1036.         for (index=1; index <= itemsInList && err == noErr; index++) {
  1037.         
  1038.             err = AEGetNthPtr(    &docList, 
  1039.                                 index,
  1040.                                 typeFSS,
  1041.                                 &keywd,
  1042.                                 &returnedType,
  1043.                                 (Ptr)&myFSS,
  1044.                                 sizeof(myFSS),
  1045.                                 &actualSize);
  1046.     
  1047.             if (err == noErr)    {                    
  1048.                 // err = HandlePrintDoc( &myFSS );
  1049.                 err = errAEEventNotHandled ;         // we don't do this yet...
  1050.             }
  1051.         }
  1052.         err = AEDisposeDesc(&docList);
  1053.     }
  1054.     return err ;
  1055. }
  1056.  
  1057. //-----------------------------------------------------------------------
  1058. // quit appleevent handler
  1059.  
  1060. pascal OSErr MyAEHandleQUIT(AppleEvent *theAppleEvent,AppleEvent *reply,long refCon)
  1061. {
  1062.     OSErr             err = noErr ;        // used as return value
  1063.     WindowPtr        theWindow ;
  1064.     Boolean            quitting = true ;
  1065.  
  1066.     
  1067.     // close all windows and signal to Quit
  1068.  
  1069.         
  1070.     // attempt to close all documents
  1071.     while(( theWindow = FrontWindow()) != nil && quitting )
  1072.         quitting = (MyDisposeViewerWindow( theWindow ) == noErr);    
  1073.         
  1074.  
  1075.     // if we closed everything up successfully, we can return noErr, otherwise
  1076.     // indicate to sender of the 'quit' aevt that we canceled
  1077.     
  1078.     if (quitting) {
  1079.         gQuitFlag = true;                    // user didn't cancel
  1080.          AEDisposeDesc(&gSelfAddress);        // Dispose of my self-addressed descriptor.
  1081.     }
  1082.     else {
  1083.         err = userCanceledErr ;
  1084.     }
  1085.             
  1086.     return err ;
  1087. }
  1088.  
  1089.  
  1090. //----------------------------------------------------------------------------------//
  1091. //    Send a Quit Application Apple Event to myself to terminate this app.        
  1092.  
  1093. void MySendQuitApp( void )
  1094. {
  1095.     AppleEvent    myAppleEvent, reply;
  1096.     
  1097.     //    Create the Apple Event.
  1098.     FailIfErr(AECreateAppleEvent( kCoreEventClass, 
  1099.                                   kAEQuitApplication, 
  1100.                                   &gSelfAddress,
  1101.                                   kAutoGenerateReturnID, 
  1102.                                   kAnyTransactionID, 
  1103.                                   &myAppleEvent));
  1104.                                   
  1105.     //    Send the Apple Event.
  1106.       FailIfErr(AESend( &myAppleEvent, 
  1107.                         &reply, 
  1108.                         kAENoReply+kAENeverInteract, 
  1109.                         kAENormalPriority,
  1110.                         kAEDefaultTimeout, 
  1111.                         nil, 
  1112.                         nil));
  1113.                         
  1114.       AEDisposeDesc(&myAppleEvent);                // Dispose of the Apple Event.
  1115. } // MySendQuitApp
  1116.  
  1117.  
  1118. //----------------------------------------------------------------------------------//
  1119. //    Send a Open Document Application Apple Event to myself to open a document.        
  1120.  
  1121. void MySendOpenDoc(FSSpec *myFSSpec)
  1122. {
  1123.      AppleEvent    myAppleEvent;
  1124.     AppleEvent    defReply;
  1125.     AEDescList    docList;
  1126.     OSErr         myErr;
  1127.     OSErr         ignoreErr;
  1128.     
  1129.     myAppleEvent.dataHandle = nil;
  1130.     docList.dataHandle  = nil;
  1131.     defReply.dataHandle = nil;
  1132.         
  1133.     // Create empty list and add one file spec
  1134.     FailIfErr(AECreateList(nil,0,false, &docList));
  1135.     
  1136.     FailIfErr(AEPutPtr(&docList,1,typeFSS,(Ptr)myFSSpec,sizeof(FSSpec)));
  1137.         
  1138.     FailIfErr(AECreateAppleEvent(    kCoreEventClass,
  1139.                                     kAEOpenDocuments,
  1140.                                     &gSelfAddress,
  1141.                                     kAutoGenerateReturnID,
  1142.                                     kAnyTransactionID,
  1143.                                     &myAppleEvent));
  1144.  
  1145.     // Put Params into our event and send it
  1146.  
  1147.     FailIfErr(AEPutParamDesc( &myAppleEvent,
  1148.                               keyDirectObject,
  1149.                               &docList));
  1150.  
  1151.     FailIfErr(AESend( &myAppleEvent,
  1152.                       &defReply,
  1153.                       kAENoReply+kAENeverInteract,
  1154.                       kAENormalPriority,
  1155.                       kAEDefaultTimeout,
  1156.                       nil,
  1157.                       nil));
  1158.         
  1159.         
  1160.     if (myAppleEvent.dataHandle) 
  1161.         ignoreErr = AEDisposeDesc(&myAppleEvent);
  1162.         
  1163.     if (docList.dataHandle) 
  1164.         ignoreErr = AEDisposeDesc(&docList);
  1165.             
  1166. }    // MySendOpenDoc 
  1167.